home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / mar93.zip / TIP854A.LSP < prev    next >
Text File  |  1993-02-13  |  618b  |  28 lines
  1. ; TIP854A: MLF.LSP (c)1993, Bernd Hoffman
  2.  
  3. (Defun C:MLF (/ SS EN ED LA)
  4.    (Setvar "CMDECHO" 0)
  5.    (Princ
  6.       "Freeze multiple layers."
  7.    )
  8.    (Setq SS (SsGet))
  9.    (While (> (SsLength SS) 0)
  10.          (Setq
  11.             EN (SsName SS 0)
  12.             ED (EntGet EN)
  13.             LA (CDR (Assoc 8 ED))
  14.          )
  15.          (If (/= LA (GetVar "CLAYER"))
  16.                (Command
  17.                   ".LAYER" "FREEZE" LA ""
  18.                )
  19.             (Prompt
  20.                "\nCan not freeze current layer!"
  21.             )
  22.          )
  23.          (SsDel EN SS)
  24.    )
  25.    (Setvar "CMDECHO" 1)
  26.    (Princ)
  27. )
  28.